home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tf.d64 / minute loader.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  631b  |  20 lines
  1. 5 REM MINUTE WALTZ BY FREDERIC CHOPIN
  2. 6 REM ARRANGED FOR THE C-64 ON MASTER COMPOSER BY RICH WORTHLEY.
  3. 10 IFA<>0THEN50
  4. 15 POKE56,97:POKE52,97
  5. 20 PRINT"[147]"TAB(10)"BOGUS BUNNY MUSIC"
  6. 30 PRINT""TAB(15)"PRESENTS"
  7. 40 A=1:LOAD"MINUTE WALTZ",8,1
  8. 50 POKE53280,12:POKE53281,0:POKE646,14:TI$="000000"
  9. 55 BA=29965:SYSBA+155
  10. 60 PRINT"[147]"TAB(11)"THE MINUTE WALTZ"
  11. 65 PRINT""TAB(10)"BY FREDERIC CHOPIN"
  12. 70 PRINT""TAB(5)"ARRANGED FOR THE COMMODORE 64"
  13. 75 PRINT""TAB(11)"BY RICH WORTHLEY"
  14. 80 IFPEEK(789)<>234THEN80
  15. 90 PRINT"[147]"TAB(14)"THE END"
  16. 95 PRINT"CARE TO HEAR IT AGAIN (Y OR N)?"
  17. 100 GETAA$:IFAA$=""THEN100
  18. 110 IFAA$="Y"THEN50
  19. 120 IFAA$="N"THENPRINT"[147]";:POKE53280,14:POKE53281,6:POKE646,14:END
  20.